home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HTBasic 9.3
/
HTBasic 9.3.iso
/
61win
/
data1.cab
/
Lexical_Order_files
/
USERDEF.BAS
< prev
Wrap
BASIC Source File
|
2001-03-02
|
439b
|
25 lines
5 REM USERDEF.BAS
10 INTEGER A(0:260)
20 A(65)=0
30 A(66)=256
40 A(67)=1
50 A(68)=576
60 A(69)=1411
65 A(70)=1280
75 A(71)=1536
80 A(72)=1984
90 A(73)=1985
100 A(256)=4
110 A(257)=2
120 A(258)=22532
130 A(259)=22787
140 A(260)=1573
150 FOR I=74 TO 255
160 A(I)=SHIFT(I-66,-8)
170 NEXT I
180 FOR I=0 TO 64
190 A(I)=SHIFT(I+190,-8)
200 NEXT I
210 LEXICAL ORDER IS A(*)
220 END